home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / citta / mi012.dir / 00030_Script_30 < prev    next >
Text File  |  1983-01-27  |  473b  |  21 lines
  1. on exitFrame
  2.   global a_blocca
  3.   if a_blocca = false then
  4.     ATT_HILITE 91,98,86,8,88,89
  5.   end if
  6.   GLOBAL at_hil_dacast,at_hil_quanti,at_hil_sprite
  7.   at_hil at_hil_dacast,at_hil_quanti,at_hil_sprite
  8.   go to the frame 
  9. end
  10. on mouseup
  11.   curfinmetti
  12.   --  if the mouseh > 53 and the mouseh < 640 and the mouseV > 0 and the mouseV < 480 then
  13.   global a_blocca, scrolla
  14.   set a_blocca to false
  15.   set scrolla to true
  16.   
  17.   viff 18,21    
  18.   --  end if
  19.   
  20. end
  21.